object renamedialog: Trenamedialog Left = 269 Top = 128 HorzScrollBar.Visible = False VertScrollBar.Visible = False ActiveControl = OKBtn BorderStyle = bsDialog Caption = 'Rename files' ClientHeight = 175 ClientWidth = 396 Font.Color = clBlack Font.Height = -11 Font.Name = 'MS Sans Serif' Font.Style = [fsBold] Position = poScreenCenter OnActivate = FormActivate PixelsPerInch = 96 TextHeight = 13 object Bevel1: TBevel Left = 8 Top = 8 Width = 377 Height = 121 Shape = bsFrame IsControl = True end object oldfile: TLabel Left = 16 Top = 48 Width = 361 Height = 13 AutoSize = False Font.Color = clBlack Font.Height = -11 Font.Name = 'MS Sans Serif' Font.Style = [fsItalic] ParentFont = False end object Label1: TLabel Left = 16 Top = 24 Width = 32 Height = 13 Caption = 'From:' end object Label2: TLabel Left = 16 Top = 72 Width = 20 Height = 13 Caption = 'To:' end object OKBtn: TBitBtn Left = 8 Top = 140 Width = 73 Height = 27 TabOrder = 0 OnClick = OKBtnClick Kind = bkOK Margin = 2 Spacing = -1 IsControl = True end object CancelBtn: TBitBtn Left = 164 Top = 140 Width = 69 Height = 27 TabOrder = 1 OnClick = CancelBtnClick Kind = bkCancel Margin = 2 Spacing = -1 IsControl = True end object btnAll: TBitBtn Left = 300 Top = 140 Width = 82 Height = 27 Caption = 'C&ancel All' TabOrder = 2 OnClick = btnAllClick Kind = bkNo Margin = 2 Spacing = -1 IsControl = True end object newfile: TEdit Left = 16 Top = 96 Width = 361 Height = 17 BorderStyle = bsNone Font.Color = clBlack Font.Height = -11 Font.Name = 'MS Sans Serif' Font.Style = [] ParentFont = False TabOrder = 3 end end